home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / Files.p < prev    next >
Encoding:
Text File  |  1989-10-13  |  14.2 KB  |  444 lines  |  [TEXT/MPS ]

  1. {
  2. Created: Tuesday, September 12, 1989 at 7:16 PM
  3.     Files.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.     Copyright Apple Computer, Inc.    1985-1989
  7.     All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT Files;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingFiles}
  21. {$SETC UsingFiles := 1}
  22.  
  23. {$I+}
  24. {$SETC FilesIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingTypes}
  27. {$I $$Shell(PInterfaces)Types.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingOSUtils}
  30. {$I $$Shell(PInterfaces)OSUtils.p}
  31. {$ENDC}
  32. {$IFC UNDEFINED UsingSegLoad}
  33. {$I $$Shell(PInterfaces)SegLoad.p}
  34. {$ENDC}
  35. {$SETC UsingIncludes := FilesIncludes}
  36.  
  37. CONST
  38.  
  39. { Finder Constants }
  40.  
  41. fsAtMark = 0;
  42. fOnDesk = 1;
  43. fsCurPerm = 0;
  44. fHasBundle = 8192;
  45. fsRdPerm = 1;
  46. fInvisible = 16384;
  47. fTrash = -3;
  48. fsWrPerm = 2;
  49. fDesktop = -2;
  50. fsRdWrPerm = 3;
  51. fDisk = 0;
  52. fsRdWrShPerm = 4;
  53. fsFromStart = 1;
  54. fsFromLEOF = 2;
  55. fsFromMark = 3;
  56. rdVerify = 64;
  57. ioDirFlg = 3;
  58. ioDirMask = $10;
  59. fsRtParID = 1;
  60. fsRtDirID = 2;
  61.  
  62. { Version Release Stage Codes }
  63.  
  64. developStage = $20;
  65. alphaStage = $40;
  66. betaStage = $60;
  67. finalStage = $80;
  68.  
  69.  
  70. TYPE
  71.  
  72. CInfoType = (hFileInfo,dirInfo);
  73.  
  74. FXInfo = RECORD
  75.     fdIconID: INTEGER;                    {Icon ID}
  76.     fdUnused: ARRAY [1..4] OF INTEGER;    {unused but reserved 8 bytes}
  77.     fdComment: INTEGER;                 {Comment ID}
  78.     fdPutAway: LONGINT;                 {Home Dir ID}
  79.     END;
  80.  
  81. DInfo = RECORD
  82.     frRect: Rect;                        {folder rect}
  83.     frFlags: INTEGER;                    {Flags}
  84.     frLocation: Point;                    {folder location}
  85.     frView: INTEGER;                    {folder view}
  86.     END;
  87.  
  88. DXInfo = RECORD
  89.     frScroll: Point;                    {scroll position}
  90.     frOpenChain: LONGINT;                {DirID chain of open folders}
  91.     frUnused: INTEGER;                    {unused but reserved}
  92.     frComment: INTEGER;                 {comment}
  93.     frPutAway: LONGINT;                 {DirID}
  94.     END;
  95.  
  96. CMovePBPtr = ^CMovePBRec;
  97. CMovePBRec = RECORD
  98.     qLink: QElemPtr;
  99.     qType: INTEGER;
  100.     ioTrap: INTEGER;
  101.     ioCmdAddr: Ptr;
  102.     ioCompletion: ProcPtr;
  103.     ioResult: OSErr;
  104.     ioNamePtr: StringPtr;
  105.     ioVRefNum: INTEGER;
  106.     filler1: LONGINT;
  107.     ioNewName: StringPtr;
  108.     filler2: LONGINT;
  109.     ioNewDirID: LONGINT;
  110.     filler3: ARRAY [1..2] OF LONGINT;
  111.     ioDirID: LONGINT;
  112.     END;
  113.  
  114. WDPBPtr = ^WDPBRec;
  115. WDPBRec = RECORD
  116.     qLink: QElemPtr;
  117.     qType: INTEGER;
  118.     ioTrap: INTEGER;
  119.     ioCmdAddr: Ptr;
  120.     ioCompletion: ProcPtr;
  121.     ioResult: OSErr;
  122.     ioNamePtr: StringPtr;
  123.     ioVRefNum: INTEGER;
  124.     filler1: INTEGER;
  125.     ioWDIndex: INTEGER;
  126.     ioWDProcID: LONGINT;
  127.     ioWDVRefNum: INTEGER;
  128.     filler2: ARRAY [1..7] OF INTEGER;
  129.     ioWDDirID: LONGINT;
  130.     END;
  131.  
  132. FCBPBPtr = ^FCBPBRec;
  133. FCBPBRec = RECORD
  134.     qLink: QElemPtr;
  135.     qType: INTEGER;
  136.     ioTrap: INTEGER;
  137.     ioCmdAddr: Ptr;
  138.     ioCompletion: ProcPtr;
  139.     ioResult: OSErr;
  140.     ioNamePtr: StringPtr;
  141.     ioVRefNum: INTEGER;
  142.     ioRefNum: INTEGER;
  143.     filler: INTEGER;
  144.     ioFCBIndx: INTEGER;
  145.     filler1: INTEGER;
  146.     ioFCBFlNm: LONGINT;
  147.     ioFCBFlags: INTEGER;
  148.     ioFCBStBlk: INTEGER;
  149.     ioFCBEOF: LONGINT;
  150.     ioFCBPLen: LONGINT;
  151.     ioFCBCrPs: LONGINT;
  152.     ioFCBVRefNum: INTEGER;
  153.     ioFCBClpSiz: LONGINT;
  154.     ioFCBParID: LONGINT;
  155.     END;
  156.  
  157. HParmBlkPtr = ^HParamBlockRec;
  158. HParamBlockRec = RECORD
  159.     qLink: QElemPtr;
  160.     qType: INTEGER;
  161.     ioTrap: INTEGER;
  162.     ioCmdAddr: Ptr;
  163.     ioCompletion: ProcPtr;
  164.     ioResult: OSErr;
  165.     ioNamePtr: StringPtr;
  166.     ioVRefNum: INTEGER;
  167.     CASE ParamBlkType OF
  168.       IOParam:
  169.         (ioRefNum: INTEGER;
  170.         ioVersNum: SignedByte;
  171.         ioPermssn: SignedByte;
  172.         ioMisc: Ptr;
  173.         ioBuffer: Ptr;
  174.         ioReqCount: LONGINT;            {size of buffer area}
  175.         ioActCount: LONGINT;            {length of vol parms data}
  176.         ioPosMode: INTEGER;
  177.         ioPosOffset: LONGINT);
  178.       FileParam:
  179.         (ioFRefNum: INTEGER;
  180.         ioFVersNum: SignedByte;
  181.         filler1: SignedByte;
  182.         ioFDirIndex: INTEGER;
  183.         ioFlAttrib: SignedByte;
  184.         ioFlVersNum: SignedByte;
  185.         ioFlFndrInfo: FInfo;
  186.         ioDirID: LONGINT;
  187.         ioFlStBlk: INTEGER;
  188.         ioFlLgLen: LONGINT;
  189.         ioFlPyLen: LONGINT;
  190.         ioFlRStBlk: INTEGER;
  191.         ioFlRLgLen: LONGINT;
  192.         ioFlRPyLen: LONGINT;
  193.         ioFlCrDat: LONGINT;
  194.         ioFlMdDat: LONGINT);
  195.       VolumeParam:
  196.         (filler2: LONGINT;
  197.         ioVolIndex: INTEGER;
  198.         ioVCrDate: LONGINT;
  199.         ioVLsMod: LONGINT;
  200.         ioVAtrb: INTEGER;
  201.         ioVNmFls: INTEGER;
  202.         ioVBitMap: INTEGER;
  203.         ioAllocPtr: INTEGER;
  204.         ioVNmAlBlks: INTEGER;
  205.         ioVAlBlkSiz: LONGINT;
  206.         ioVClpSiz: LONGINT;
  207.         ioAlBlSt: INTEGER;
  208.         ioVNxtCNID: LONGINT;
  209.         ioVFrBlk: INTEGER;
  210.         ioVSigWord: INTEGER;
  211.         ioVDrvInfo: INTEGER;
  212.         ioVDRefNum: INTEGER;
  213.         ioVFSID: INTEGER;
  214.         ioVBkUp: LONGINT;
  215.         ioVSeqNum: INTEGER;
  216.         ioVWrCnt: LONGINT;
  217.         ioVFilCnt: LONGINT;
  218.         ioVDirCnt: LONGINT;
  219.         ioVFndrInfo: ARRAY [1..8] OF LONGINT);
  220.       AccessParam:
  221.         (filler3: INTEGER;
  222.         ioDenyModes: INTEGER;            {access rights data}
  223.         filler4: INTEGER;
  224.         filler5: SignedByte;
  225.         ioACUser: SignedByte;            {access rights for directory only}
  226.         filler6: LONGINT;
  227.         ioACOwnerID: LONGINT;            {owner ID}
  228.         ioACGroupID: LONGINT;            {group ID}
  229.         ioACAccess: LONGINT);            {access rights}
  230.       ObjParam:
  231.         (filler7: INTEGER;
  232.         ioObjType: INTEGER;             {function code}
  233.         ioObjNamePtr: Ptr;                {ptr to returned creator/group name}
  234.         ioObjID: LONGINT);                {creator/group ID}
  235.       CopyParam:
  236.         (ioDstVRefNum: INTEGER;         {destination vol identifier}
  237.         filler8: INTEGER;
  238.         ioNewName: Ptr;                 {ptr to destination pathname}
  239.         ioCopyName: Ptr;                {ptr to optional name}
  240.         ioNewDirID: LONGINT);            {destination directory ID}
  241.       WDParam:
  242.         (filler9: INTEGER;
  243.         ioWDIndex: INTEGER;
  244.         ioWDProcID: LONGINT;
  245.         ioWDVRefNum: INTEGER;
  246.         filler10: INTEGER;
  247.         filler11: LONGINT;
  248.         filler12: LONGINT;
  249.         filler13: LONGINT;
  250.         ioWDDirID: LONGINT);
  251.     END;
  252.  
  253. CInfoPBPtr = ^CInfoPBRec;
  254. CInfoPBRec = RECORD
  255.     qLink: QElemPtr;
  256.     qType: INTEGER;
  257.     ioTrap: INTEGER;
  258.     ioCmdAddr: Ptr;
  259.     ioCompletion: ProcPtr;
  260.     ioResult: OSErr;
  261.     ioNamePtr: StringPtr;
  262.     ioVRefNum: INTEGER;
  263.     ioFRefNum: INTEGER;
  264.     ioFVersNum: SignedByte;
  265.     filler1: SignedByte;
  266.     ioFDirIndex: INTEGER;
  267.     ioFlAttrib: SignedByte;
  268.     filler2: SignedByte;
  269.     CASE CInfoType OF
  270.       hFileInfo:
  271.         (ioFlFndrInfo: FInfo;
  272.         ioDirID: LONGINT;
  273.         ioFlStBlk: INTEGER;
  274.         ioFlLgLen: LONGINT;
  275.         ioFlPyLen: LONGINT;
  276.         ioFlRStBlk: INTEGER;
  277.         ioFlRLgLen: LONGINT;
  278.         ioFlRPyLen: LONGINT;
  279.         ioFlCrDat: LONGINT;
  280.         ioFlMdDat: LONGINT;
  281.         ioFlBkDat: LONGINT;
  282.         ioFlXFndrInfo: FXInfo;
  283.         ioFlParID: LONGINT;
  284.         ioFlClpSiz: LONGINT);
  285.       dirInfo:
  286.         (ioDrUsrWds: DInfo;
  287.         ioDrDirID: LONGINT;
  288.         ioDrNmFls: INTEGER;
  289.         filler3: ARRAY [1..9] OF INTEGER;
  290.         ioDrCrDat: LONGINT;
  291.         ioDrMdDat: LONGINT;
  292.         ioDrBkDat: LONGINT;
  293.         ioDrFndrInfo: DXInfo;
  294.         ioDrParID: LONGINT);
  295.     END;
  296.  
  297. NumVersion = PACKED RECORD
  298.     CASE INTEGER OF
  299.       0:
  300.         (majorRev: SignedByte;            {1st part of version number in BCD}
  301.         minorRev: 0..9;                 {2nd part is 1 nibble in BCD}
  302.         bugFixRev: 0..9;                {3rd part is 1 nibble in BCD}
  303.         stage: SignedByte;                {stage code: dev, alpha, beta, final}
  304.         nonRelRev: SignedByte);         {revision level of non-released version}
  305.       1:
  306.         (version: LONGINT);             {to use all 4 fields at one time}
  307.     END;
  308.  
  309. { Numeric version part of 'vers' resource }
  310. VersRecPtr = ^VersRec;
  311. VersRecHndl = ^VersRecPtr;
  312. VersRec = RECORD
  313.     numericVersion: NumVersion;         {encoded version number}
  314.     countryCode: INTEGER;                {country code from intl utilities}
  315.     shortVersion: Str255;                {version number string - worst case}
  316.     reserved: Str255;                    {longMessage string packed after shortVersion}
  317.     END;
  318.  
  319. { 'vers' resource format }
  320.  
  321.  
  322. FUNCTION PBHGetVolParms(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  323. FUNCTION PBHGetLogInInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  324. FUNCTION PBHGetDirAccess(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  325. FUNCTION PBHSetDirAccess(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  326. FUNCTION PBHMapID(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  327. FUNCTION PBHMapName(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  328. FUNCTION PBHCopyFile(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  329. FUNCTION PBHMoveRename(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  330. FUNCTION PBHOpenDeny(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  331. FUNCTION PBHOpenRFDeny(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  332. FUNCTION PBOpen(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  333. FUNCTION PBClose(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  334. FUNCTION PBRead(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  335. FUNCTION PBWrite(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  336. FUNCTION PBGetVInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  337. FUNCTION PBGetVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  338. FUNCTION PBSetVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  339. FUNCTION PBFlushVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  340. FUNCTION PBCreate(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  341. FUNCTION PBDelete(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  342. FUNCTION PBOpenRF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  343. FUNCTION PBRename(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  344. FUNCTION PBGetFInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  345. FUNCTION PBSetFInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  346. FUNCTION PBSetFLock(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  347. FUNCTION PBRstFLock(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  348. FUNCTION PBSetFVers(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  349. FUNCTION PBAllocate(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  350. FUNCTION PBGetEOF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  351. FUNCTION PBSetEOF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  352. FUNCTION PBGetFPos(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  353. FUNCTION PBSetFPos(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  354. FUNCTION PBFlushFile(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  355. FUNCTION PBMountVol(paramBlock: ParmBlkPtr): OSErr;
  356. FUNCTION PBUnmountVol(paramBlock: ParmBlkPtr): OSErr;
  357. FUNCTION PBEject(paramBlock: ParmBlkPtr): OSErr;
  358. FUNCTION PBOffLine(paramBlock: ParmBlkPtr): OSErr;
  359. PROCEDURE AddDrive(drvrRefNum: INTEGER;drvNum: INTEGER;qEl: DrvQElPtr);
  360. FUNCTION FSOpen(fileName: Str255;vRefNum: INTEGER;VAR refNum: INTEGER): OSErr;
  361. FUNCTION FSClose(refNum: INTEGER): OSErr;
  362. FUNCTION FSRead(refNum: INTEGER;VAR count: LONGINT;buffPtr: Ptr): OSErr;
  363. FUNCTION FSWrite(refNum: INTEGER;VAR count: LONGINT;buffPtr: Ptr): OSErr;
  364. FUNCTION GetVInfo(drvNum: INTEGER;volName: StringPtr;VAR vRefNum: INTEGER;
  365.     VAR freeBytes: LONGINT): OSErr;
  366. FUNCTION GetFInfo(fileName: Str255;vRefNum: INTEGER;VAR fndrInfo: FInfo): OSErr;
  367. FUNCTION GetVol(volName: StringPtr;VAR vRefNum: INTEGER): OSErr;
  368. FUNCTION SetVol(volName: StringPtr;vRefNum: INTEGER): OSErr;
  369. FUNCTION UnmountVol(volName: StringPtr;vRefNum: INTEGER): OSErr;
  370. FUNCTION Eject(volName: StringPtr;vRefNum: INTEGER): OSErr;
  371. FUNCTION FlushVol(volName: StringPtr;vRefNum: INTEGER): OSErr;
  372. FUNCTION Create(fileName: Str255;vRefNum: INTEGER;creator: OSType;fileType: OSType): OSErr;
  373. FUNCTION FSDelete(fileName: Str255;vRefNum: INTEGER): OSErr;
  374. FUNCTION OpenRF(fileName: Str255;vRefNum: INTEGER;VAR refNum: INTEGER): OSErr;
  375. FUNCTION Rename(oldName: Str255;vRefNum: INTEGER;newName: Str255): OSErr;
  376. FUNCTION SetFInfo(fileName: Str255;vRefNum: INTEGER;fndrInfo: FInfo): OSErr;
  377. FUNCTION SetFLock(fileName: Str255;vRefNum: INTEGER): OSErr;
  378. FUNCTION RstFLock(fileName: Str255;vRefNum: INTEGER): OSErr;
  379. FUNCTION Allocate(refNum: INTEGER;VAR count: LONGINT): OSErr;
  380. FUNCTION GetEOF(refNum: INTEGER;VAR logEOF: LONGINT): OSErr;
  381. FUNCTION SetEOF(refNum: INTEGER;logEOF: LONGINT): OSErr;
  382. FUNCTION GetFPos(refNum: INTEGER;VAR filePos: LONGINT): OSErr;
  383. FUNCTION SetFPos(refNum: INTEGER;posMode: INTEGER;posOff: LONGINT): OSErr;
  384. FUNCTION GetVRefNum(fileRefNum: INTEGER;VAR vRefNum: INTEGER): OSErr;
  385. FUNCTION PBOpenWD(paramBlock: WDPBPtr;async: BOOLEAN): OSErr;
  386. FUNCTION PBCloseWD(paramBlock: WDPBPtr;async: BOOLEAN): OSErr;
  387. FUNCTION PBHSetVol(paramBlock: WDPBPtr;async: BOOLEAN): OSErr;
  388. FUNCTION PBHGetVol(paramBlock: WDPBPtr;async: BOOLEAN): OSErr;
  389. FUNCTION PBCatMove(paramBlock: CMovePBPtr;async: BOOLEAN): OSErr;
  390. FUNCTION PBDirCreate(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  391. FUNCTION PBGetWDInfo(paramBlock: WDPBPtr;async: BOOLEAN): OSErr;
  392. FUNCTION PBGetFCBInfo(paramBlock: FCBPBPtr;async: BOOLEAN): OSErr;
  393. FUNCTION PBGetCatInfo(paramBlock: CInfoPBPtr;async: BOOLEAN): OSErr;
  394. FUNCTION PBSetCatInfo(paramBlock: CInfoPBPtr;async: BOOLEAN): OSErr;
  395. FUNCTION PBAllocContig(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  396. FUNCTION PBLockRange(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  397. FUNCTION PBUnlockRange(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  398. FUNCTION PBSetVInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  399. FUNCTION PBHGetVInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  400. FUNCTION PBHOpen(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  401. FUNCTION PBHOpenRF(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  402. FUNCTION PBHCreate(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  403. FUNCTION PBHDelete(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  404. FUNCTION PBHRename(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  405. FUNCTION PBHRstFLock(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  406. FUNCTION PBHSetFLock(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  407. FUNCTION PBHGetFInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  408. FUNCTION PBHSetFInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr;
  409. PROCEDURE FInitQueue;
  410.     INLINE $A016;
  411. FUNCTION GetFSQHdr: QHdrPtr;
  412. FUNCTION GetDrvQHdr: QHdrPtr;
  413. FUNCTION GetVCBQHdr: QHdrPtr;
  414. FUNCTION HGetVol(volName: StringPtr;VAR vRefNum: INTEGER;VAR dirID: LONGINT): OSErr;
  415. FUNCTION HSetVol(volName: StringPtr;vRefNum: INTEGER;dirID: LONGINT): OSErr;
  416. FUNCTION HOpen(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;permission: SignedByte;
  417.     VAR refNum: INTEGER): OSErr;
  418. FUNCTION HOpenRF(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;permission: SignedByte;
  419.     VAR refNum: INTEGER): OSErr;
  420. FUNCTION AllocContig(refNum: INTEGER;VAR count: LONGINT): OSErr;
  421. FUNCTION HCreate(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;creator: OSType;
  422.     fileType: OSType): OSErr;
  423. FUNCTION DirCreate(vRefNum: INTEGER;parentDirID: LONGINT;directoryName: Str255;
  424.     VAR createdDirID: LONGINT): OSErr;
  425. FUNCTION HDelete(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr;
  426. FUNCTION HGetFInfo(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;VAR fndrInfo: FInfo): OSErr;
  427. FUNCTION HSetFInfo(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;fndrInfo: FInfo): OSErr;
  428. FUNCTION HSetFLock(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr;
  429. FUNCTION HRstFLock(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr;
  430. FUNCTION HRename(vRefNum: INTEGER;dirID: LONGINT;oldName: Str255;newName: Str255): OSErr;
  431. FUNCTION CatMove(vRefNum: INTEGER;dirID: LONGINT;oldName: Str255;newDirID: LONGINT;
  432.     newName: Str255): OSErr;
  433. FUNCTION OpenWD(vRefNum: INTEGER;dirID: LONGINT;procID: LONGINT;VAR wdRefNum: INTEGER): OSErr;
  434. FUNCTION CloseWD(wdRefNum: INTEGER): OSErr;
  435. FUNCTION GetWDInfo(wdRefNum: INTEGER;VAR vRefNum: INTEGER;VAR dirID: LONGINT;
  436.     VAR procID: LONGINT): OSErr;
  437.  
  438. {$ENDC}    { UsingFiles }
  439.  
  440. {$IFC NOT UsingIncludes}
  441.     END.
  442. {$ENDC}
  443.  
  444.